Real_Field


Purpose   Assigns a real variable to an input field.

Decln.    Real_Field(ID:byte;var RVar:real;Fmt:string;Min,Max:real);

Remarks   ID is the field ID number.
          Rvar is the name of the real variable that will be updated with
          the user's input.
          Fmt is the format of the input field. Pass a null string '' for
          the default.
          Min, Max are the minimum and maximum values for range check. Set
          to 0 to accept any real value.

          The field must be declared with Add_Field prior to calling this
          procedure.

Example

VAR
  PRICE, DISCOUNT:REAL;
BEGIN
    PRICE := 49.99;
    DISCOUNT := 9.5;
    REAL_FIELD(3, PRICE, '', 0,79.99);
    REAL_FIELD(4, DISCOUNT, '', 0,50);
END;